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Scitronics RTC-100 Real-Time Clock 
— Note — 



All clocks have an on-board, fully charged lithium battery. 
Serious damage to the battery may reiult if the circuit board fs 
placed on a conducting surface. 



INTROnrTrTTDM 

The SciTronics Inc. S-100 Real Time Clock offers computer 

??^!ini«So a *K an , e ? tr J me } y accurate time Piece for their system. 
Jr™??i ? <- t n J" 6 ! t micr °Processor clock chip available and is 
crystal-controlled to assure .002% accuracy. A lithium battery 

SErSt 8 ! ?« ° Ck P K W6r L ? the event that s y stem P° wer is removed. 
f£! k^Ti, ^ be use <* t0 generate interrupts while operating in 
the background, providing time resolutions as fine as every 
second. The clock provides year, month, date, day of week, hour, 
minute, and second data. The RTC-100 is made to be fully 
compatible with the SciTronics Remote Controller for real-time 
control of a-c operated appliances. Interactive software 
packages written in BASIC provide the user with easy-to-use 
programs to set and read the RTC-100. There are two programs 
required to use your clock, RTCSET, to set the clock, and RTCREAD 
to read and display the clock data. In addition to Basic 
versions of each of these programs, an assembly language program 
is supplied as an example of how to use the clock in a non-Basic 
mterrupt-driven environment. 

Before the clock is installed in your system, you will have to 
set the base port address and, if you plan to use program 
interrupt, the interrupt restart address. 



SELECTING THF, BASS PORf AnnPEfis 

The S-100 clock uses four port addresses; one base address, and 
three additional consecutive addresses. These four ports are 
used to read and write various data registers within the 
Peripheral Interface Adaptor chip. In order to select your base 
address, you must set or reset the six port-select switches 
located on the circuit board. These switches are part of the 8- 
position dip switch, PORT, shown in Figure 1. The general form 
of the base port address is: 

A0 Al A2 A3 A4 A5 A6 A7, where A2 through A7 are user defined 
address bits. Putting any switch into the "ON" ("OFF") position 
causes that address bit to be valid when high (low). 
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As an example, to set the base address to 144 decimal (220 
octal/90 hexadecimal), the PORT switches should be set as 
follows: 



A2 A7 

I I 

xx00 1001 

0Hex| |9Hexj 



Note that address bits Al and A0 do not get set because they are 
used internally to select among the clock functions. It is 
important that you set the switches with reference to the 
markings on the circuit board and the diagram of Figure 1, below. 
Do not use the switch markings as a guide to the identification 
of the address bits as they may vary from one production run to 
another. The only valid base addresses are those which are 
multiples of 4, such as: 0, 4, 8, 12, 16, 20, .... 244, 
248, 252. Table I is a listing of valid port addresses in binary 
and decimal. Since the Basic clock software will ask you for 
your base port address in decimal, choose one that does not 
conflict with any I/O ports already assigned in your system and 
note it here. 

Base Port Address = L_2 (decimal) 

16"- 
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[] 
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[] 
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[] 
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Figure 1. - Base Port Address Switch 
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Table I. Valid Base Porh ArHr^p*^ 



Dec i mal Sinacy Decimal 



00 

04 
08 
12 
16 
20 
24 
28 
32 
36 
40 
44 
48 
52 
56 
60 
64 
68 
72 
76 
80 
84 



000000 

100000 

010000 

110000 

001000 

101000 

011000 

111000 

000100 

100100 

010100 

110100 

001100 

101100 

011100 

111100 

000010 

100010 

010010 

110010 

001010 

101010 



88 
92 
96 
100 
104 
108 
112 
116 
120 
124 
128 
132 
136 
140 
144 
148 
152 
156 
160 
164 
168 



011010 


172 


111010 


176 


-000110 


180 


100110 


184 


010110 


188 


110110 


192 


001110 


196 


101110 


200 


011110 


204 


111110 


208 


000001 


212 


100001 


216 


010001 


220 


110001 


224 


001001 


228 


101001 


232 


011001 


236 


111001 


240 


000101 


244 


100101 


248 


010101 


252 



Decimal, Binary 



110101 

001101 

101101 

011101 

111101 

000011 

100011 

010011 

110011 

001011 

101011 

011011 

111011 

000111 

100111 

010111 

110111 

001111 

101111 

011111 

111111 



Note 

would be _, 

towards you. 



the binary digits are listed in the same order as they 
h^ set into the PORT switch with the S-100 connector 



READING THE C.T.nr* 

Your Scitronics Real-Time clock keeps time continuously; powered 
by your system when it is on, and by its onboard lithium battery 
when your system is off. You may read the clock at any time when 
your system is running; an example of a Basic program to read 
and display the clock data is given in the Appendix. This 
program, RTCREAD, reads and displays the clock data on a 
continuous basis. The program elements, and, in particular, the 
clock read subroutine, may be incorporated as part of your own 
software. 
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SEQUENCE tq ENABLE CLQ CK REAP n o interrupts active: 

port # = dec = hex = 76 543 2 10 - binary bit order 

port 1 = 240 = F0H = 11 110 00 - to PIA 'A' Ctrl port 

CA2 = low = hold high = 
start of stop clock pulse 



port = 15 = 0FH = 



0000 1111 - to PIA 'DIR' data input register 

1 I I I | I | | direction information to be used 
I I I I I I I 1 later by F4H instruction 
I I I I ++++ — > sets b0-b3 to output 
++++ > sets b4-b7 to input 

150us delay 

port 1 ■ 244 = F4H = 11 110 1 00 - to PIA 'A* Ctrl port 

sets CA2 low & port direction 
CA2 = low = hold high = 
r clock stopped 

-VS^ U ( 

port 3 « Jrftf = F^ffe = 11 111/ 00 - to PIA 'B' Ctrl port 

sets CB2 high 
CB2 = high = start of read pulse 



SEQUENCE TO READ CLOCK (repeat as needed): 

digit address out to PIA port 'A' 

6 us delay 

read PIA port 'A* 

clear lower four bits 

rotate upper four bits into lower four bits 

save result 

do next digit 

AND 3 to nio»th tens digit - eliminate leap year indicator 
AND 3 to hours tens digit - eliminate AM/PM indicator 

^SEQUENCE TO RETURN CLOCK TO RUN MODE: 

port 3\^ 240 = F0H = 11 110 00 - to PIA 'B* Ctrl port 

^" sets CB2 low 
y^"' CB2 = low = read pulse off 

port 1 = 248 = F^= ll,-ll|l 00 - to PIA 'A' Ctrl port 

V"" ' sets CA2 high 

\ CA2 = high = hold low = 

\ end of clock stop pulse = 

\ clock run mode active 



f>o4 3 



fef - c>P 



/-• 



fgli 



^ 



u. f\- 



3" 
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SETTING THE CLOCK 



Once you have installed your clock and are able to read it, you 
will want to set it to correspond to your local time zone. A 
Basic program, RTCSET, is provided for this purpose. You must 
tell the program your base port address (in decimal), and the 
current date and time. You will be asked to set the clock to the 
next full minute because the clock automatically resets its 
seconds to zero when it is set. You will be asked for the last 
two digits of the year, the one or two digits of the month, the 
date, the day of the week (Sunday = 0, etc.) and the time on a 
24-hour basis. The clock is capable of handling Leap Year, 
although that feature is not included in the program as released. 



SEQUENCE TO ENABLE CLOCK SETTING no interrupts active : 

port # = dec = hex = 76 543 2 10 - binary bit order 

port = 255 » FFH = 1111 1111 - to PIA 'A 1 data input register 
port 2 - 255 = FFH « 1111 1111 - to PIA 'B' data input register 

data to preset both PIA ports 

to output 

port 1 ■- 244 = F4H = 11 110 1 00 - to PIA 'A' Ctrl port 

sets CA2 to low & DIR of port 
CA2 = low = hold high 
start of stop clock pulse 

port 3 = 244 = F4H = 11 110 1 00 - to PIA »B* Ctrl port 

sets CB2 to low & DIR of port 



CB2 = low = read off 



150us "delay 



Continued on next page. 
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Continued from previous page. 



SEQUENCE TO SET CLOCK (repeat as needed): 
port = xxx = xxH = 



xxxx xxxx - digit address & data to PIA port 'A* 

I I 1+ — > b0 = a0 = clock digit 

||+ > bl = al select address 

|+ > b2 = a2 bits 

+ > b3 = a3 



-> b4 = d0 = data to clock 

-> b5 = dl bits 

-> b6 = d2 

-> b7 = d3 



port 2 = 
port 2 = 



= 00H = 

1 » 01H = 



0000 0000 - to PIA «b» data input register 
turns write pulse on 

0000 0001 - to PIA 'B« data input register 
turns write pulse off 



do next digit 

SEQUENCE TO RETURN CLOCK TO RUN MODE: 

port 1 = 248 = P8H = 11 111 00 - to PIA 'A' Ctrl port 

sets CA2 high end of stop pulse 
CA2 = high = hold low = run 
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INTERRUPT MODE OPERATION 



As an alternative to reading the clock upon demand, you may set 
up your system to read the clock on an interrupt basis. If you 
read the clock under interrupt/ the process of reading and 
displaying the data are separate functions. The clock is read 
every second in response to an interrupt request generated by the 
clock. At the conclusion of the instruction cycle in progress 
when the interrupt request was generated, the processor (if 
interrupt was enabled) initiates the" machine interrupt cycle. 
This interrupt cycle resembles an ordinary instruction fetch 
cycle, except that the INTA (interrupt acknowledge) status bit is 
set high. The clock will respond during T3 of Ml by "jamming 1 ' an 
instruction onto the processor's data bus. This instruction, the 
RST (RESTART) instruction is of the form: 



B0 B7 

I I 
lllxxxll 



where xxx is the binary representation of the interrupt number 
selected for your clock. Once the processor receives the RST, 
control is transferred to the instruction located at the address 
eight times the decimal equivalent of the binary interrupt number 
xxx. 

For example, suppose the processor receives RST 2 upon interrupt; 
that is, the clock places 11010111 on the data buss. Then 
control will be transferred to 8 X 2 = 16. 



[] 


N 


[] 


[] 


[] 


[] 


[] 


[] 


[] 


[] 


[] 


[] 



Figure 2. - Interrupt Address Switch 
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Vlahl A i i * XX all ° W contro1 fco b ^ transferred to any one of 
vn 9 at,i It l^ations; namely, 0, 8, 16, 24, 32, 40, 48, and 56. 
^L? 8 t l h + e 1 USe i. maximuin flexibility in selecting any one of 
as Shown g in F?anrl°? S ' Si 4 - DOSition di P switch, INT, is provided 
so oe h at 9 I' -^ ea - Se n0te - the ma rkings on the diagram, 

and off for i th T e . s Y ltch ls negattyp logi ^, that is, ON for a 

Pitches 2n (R ST ^ n? " comn !t n t ed that y0U avoid havin 9 a11 
switcnes on (RST 0) or all switches off (RST 7) as, frequently, 

these addresses are used by other devices Table II lists lea a 1 
interrupt codes and their decimal equivalents. 9 



Note your INT code here = (decimal) 

Tab l e II. - Valid Tnt-Prr M p t Adrirpgflpp 

Interrupt; Cork Switch Setting Decimal ^nv a i ont 



B0 xxx B7 

I III i 
111 000 11 



111 100 11 OFF ON ON 8 

111 010 11 ON OFF ON 16 



111 110 11 



ON 


ON 


ON 


OFF 


ON 


ON 


ON 


OFF 


ON 


OFF 


OFF 


ON 


ON 


ON 


OFF 


OFF 


ON 


OFF 


ON 


OFF 


OFF 


OFF 


OFF 


OFF 







24 



111 001 11 ON ON OFF 32 

ill 101 11 OFF ON OFF 40 

111 011 11 ON OFF OFF 48 

111 111 11 OFF OFF OFF 56 



SOFTWARE nRp CRIPTTOM 

The two Basic programs, RTCREAD and RTCSET, have been described 

^Zl° U * Sl ? in brie f* This section wil1 discuss Ihe format of the 
clock da £" ffl E P f: by R ?CREAD and as used by RTCSET to set the 
SoftwarJ^n Sll/^ 1S ^ ls ° USed by the Scitronics ' a-c controller 
clock data block consists of a lJ=By t i^TeTTe^cTiloTtf^Fwh i c h 
%?S£*\t££\£\lKl i9i \^ ltS le ^t'signi h ffcant° f 4 bits" 

tens LeaoYL fiL < ? h % °5 d 5 r: • year tens ' year units ' m ™thi 
cens (Leap Year flag is included with this digit), month units 

diriti7h;Sr d iSiVrsfn«u n ? (24 - hour fiag is ^^d w5t u h ni thr Sl 

second .in n, -tt^ l"!^ 6 _ te " S ' minu ^ e ""its, second tens, and 
secp^djinrts^rB^-T-^d slabroTTTi nTiK^TCREADpIIces-TEr-cToc^ 
^oaTTin read mc/de with Digit Hold on (so the dkits will nnf 
Change ^ hile W read 3^^^ not 
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rSSJ^'VV Cl 1 ° Ck , r ^ ad °P eration requires transmitting a digit 

reads tit ^^^^^f^^^^^rate under interrupt? but 
reads the clock continuously. Because it cycles throuah the tp^h 

Sted X ?f ay th P e 0r vi?- 8 ° f «".*"*»» continuously, and^ecauL^he 
speed of the various Basic programs vary considerable t-hl 

L^n r d a r you d r%^e y m. the "" »°" °< ^ss^f^^n^e fS? 

Eat n Ke i^M^ti^ajnU^lock settin 



HK£^^£23^ Mext the informatToTT ii formatted IHth'THF^ata i£ 
'^it§r The digit code is the same as that usph in r^yTnTTr: 



tfsX ; h A ,- c 9 i . 1S the same as that used in readinTThe 

clock, that is 0=seconds units, l=second tens, etc. The clock is 

lrt n Y ^ h * se, 3 uence °f Port operations shown in the program Shi ch 

plaS^the cfocfr^i 91 ^ 00 " 6 - 43 ^^ byteS t0 the dock and then 
Place the clock back into normal mode. Once again, the clock 
.interr upt is not enabled in t he Basicjpjrograms. 

The Appendix also contains a listing of a program demonstrTtinT 
interrupt-dnven use of the RTC100. This program is divided inSo 
two major sections: first, a section which is user-dependent 
c?oct eC °? d ' thS Cl .°. ck rout ines to set, read, start, and s?op?he 
clock. These routines, SETTER, INTR, STARTS, and STOPS should 
form part of any interrupt-driven software. snouid 

bvt^n X K CtS i t0 u find the Cl ° Ck data in the low four bits of the 
bytes in the clock area. It shifts each to the high four bits, 

sSS?ra S n,nS? & r ° Per c -°A e - digit and sends the d igits to the clock 
fh^S^ S - be run " lth interrupt off to avoid having INTR affect 
after *hJ ^J et UP '\ alS °' Lt doeS not en able interrupt mode 
Sfoek rMn I t S SSt * Jt iS im Portant to realize that the 

clock chip keeps time even when interrupt is off. 

ai?J« m A S ^ t ?f i n terrupt service routine which is invoked 

«r2r CLOCK T^ h H^, C ° nd \° r *f d the Cl0ck data infc o the da?a 
*rr*Z' Zu r Hf data 1S P lac ed as individual digits into the 

tto/Ja* A^ 3 ^ 6 " and l 4 - hoUr flags are stripped 9 off priSr to 
Itlcrlm thf A h °TS? the £ irst P art of the demonstration 
addinaASCii ~™ ,^ ta ?*%■** P rin ted from the data array by 
SrfJfL r imo er ° ^° each dlgit a " d sending them to an ASCII 

^ead^'the'clocria^ 63 interrUPt m ° de Vhen ifc has finish * d 
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Once the clock has been set, it will keep time and may be read; 
however, it will not be enabled to interrupt back ground programs 
until the program STARTS is run. This program enables the 
seconds 'tick' from the clock chip through the PIA chip to cause 
a program interrupt request. You must have set the INT switch on 
your RTC100 board to a suitable address and that address must be 
used for the program constant, RSTART. STARTS will set up the 
interrupt vector at RSTART to point to the interrupt service 
routine, INTR, before enabling interrupt. 

You must have an interrupt vector at RSTART and the service 
routine INTR active in memory whenever the clock is generating 
interrupts. If not, your computer will get 'lost 1 and crash 
whatever program you are running. The program, STOPS, is 
provided to disable the clock interrupts so you may use your 
computer in the normal manner. STOPS disables the clock 
interrupts in two ways; first, it disables ALL interrupts by the 
command, DI, and second, it programs the PIA chip to not pass on 
the clock 'ticks'. If you are running other inter rupt-driven 
devices besides the RTC100, you may wish to remove the DI command 
from the beginning of STOPS. Once again, STOPS stops the 
interrupts, not the time-keeping! 
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APPEND IX 
I. RTCREAD.BAS 



10 REM **READ SCITRONICS REAL-TIME CLOCK** 

20 REM **COPYRIGHT 1980 - SCITRONICS, INC.** 

30 DIM TIME(13) ,W$(7) 

40 DATA SUN,MON,TUE,WED,THU,FRI,SAT 

50 FOR X=l TO 7 : READ W$(X) : NEXT X 

60 PRINT 

70 PRINT "PROGRAM TO DISPLAY CLOCK DATA" 

80 PRINT "SCITRONICS, INC., BETHLEHEM, PA" 

90 PRINT 

100 REM THIS IS THE NON INTERRUPT-DRIVEN VERSION 

110 PRINT "ENTER CLOCK BASE PORT ADDRESS" 

120 PRINT "IN DECIMAL INTEGER FORM - ,4 ,8,12,16 ,20 , ETC" 

130 PRINT "MAXIMUM VALUE = 252" 

140 INPUT P 

150 REM CHECK FOR PROPER VALUE AND RANGE 

160 IF P>=256 THEN 60 

170 M=INT(P/4) 

180 IF (4*M-P)<>0 THEN 60 

190 P1=P+1 

200 P2=P+2 

210 ' P3=P+3 

220 REM DISPLAY LOOP STARTS HERE 

230 GOSUB 1000 

240 Y=TIME(1)*10+TIME(2) 

250 MO=TIME(3)*10+TIME(4) 

260 D=TIME(5)*10+TIME(6) 

270 W=TIME(7)+1 

280 H=TIME(8)*10+TIME(9) 

290 MI=TIME(10)*10+TIME(11) 

300 S=TIME(12)*10+TIME(13) 

310 PRINT Y;":";MO;":";D;" "; 

320 PRINT W$(W) ;". "; 

330 PRINT H;":";MI;":";S;" n 

340 PRINT 

350 GOTO 230 

360 REM 



Continued on next page. 
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Continued from previous page. 



1000 
1010 
_JL.0J242L 
1030 
1040 
1050 
1060, 
r 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
11S_0_ 



1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 



REM *************************** 

REM THIS READS THE CLOCK DATA * 

-R-BM~~*~************ ************** 

OUT PI, 240 — P$/ w 

OUT P,15 fe 

OUT P3,252 - — f 

FOR X=l TO 13 
OUT P,13-X 



j 



c v 



REM PUT CLOCK BACK INTO RUNNING MODE 
OUT PI, 248 — PS ^ 

-pc ^ 
10 1* ^ 



OUT P,15 
OUT P3,248 
OUT PI, 252 
OUT 



"FOR X=l TO 13 
TIME(X)=INT(TIME(X)/16) 



NEXT X 



REM THERE ARE SPECIAL MARKS ON HOURS AND 

rem strip them off ^ - £ 

^imeXs') =time (>3Tand 3 " 
time(8)=time(8) and 3 

RETURN 

REM **LATEST REVISION - 801107** 



D 
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II. RTCSET.BAS 



10 REM PROGRAM TO SET SCITRONICS CLOCK - 80103 

20 REM **COPYRIGHT 1980 - SCITRONICS, INC** 

30 DIM TIME(13) 

40 PRINT "PROGRAM TO SET THE SCITRONICS CLOCK" 

60 PRINT " SCITR0NICS ' INC " BETHLEHEM, PA 18015" 

70 PRINT "ENTER CLOCK BASE PORT ADDRESS" 

80 PRINT "IN DECIMAL INTEGER FORM - 0,4,8,12,16 20 ETC" 

90 PRINT "MAXIMUM VALUE = 252" ' 

100 INPUT P 

110 REM CHECK FOR PROPER VALUE AND RANGE 

120 IF P>=256 THEN 60 

130 M=INT(P/4) 

140 IF(4*M-P)<>0 THEN 60 

150 P1=P+1 

160 P2=P+2 

170 P3=P+3 

180 REM GET THE TIME DATA 

190 PRINT 

200 PRINT "ENTER DATE IN THE FORM: YR,MO,DA " 

210 PRINT "ONLY LAST 2 DIGITS FOR YR'" 

220 INPUT YR,MO,DA 

230 PRINT 

240 • PRINT "ENTER DAY-OF-THE-WEEK - 0=SUNDAY " 

250 • INPUT W 

260 PRINT 

270 PRINT "ENTER TIME ON 24HR CLOCK IN THE" 

280 PRINT "FORM: HR,MIN" 

290 PRINT "CLOCK ALWAYS STARTS ON 00 SECONDS, SO" 

300 PRINT "BE SURE TO ENTER THE NEXT MINUTE." 

310 INPUT HR,MIN • 

320 REM PREPARE THE DATA FOR ENTRY 

330 TIME(1)=16*INT(YR/10)+12 

340 TIME(2)=16*(YR-10*INT(YR/10))+H 

350 TIME(3)=16*INT(MO/10)+10 

360 TIME(4)=16*(MO-10*INT(MO/10))+9 

370 TIME(5)=16*INT(DA/10)+8 

380 TIME(6)=16*(DA-10*INT(DA/10))+7 

390 TIME(7)=16*W+6 -^ , u ! ifr^ 

400 TIME(8)=16*INT(HR/10)+5-ft2jj) ~~~ U^ 

410 TIME(9)=16*(HR-10*INT(HR/l0))+4 

420 TIME(10)=16*INT(MIN/10)+3 

430 TIME(ll)=16*(MIN-10*INT(MIN/10))+2 

440 TIME(12)=1 

450 TIME(13)=0 



Continued on next page. 
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Continued from previous page. 



460 REM DATA IS READY, ASK FOR 

47 REM START SIGNAL FROM USER 

480 PRINT 

490 PRINT "ENTER 1 AND CARRIAGE RETURN TO SET CLOCK" 

500 PRINT "PUSH CR ON THE ZERO SECOND" 

510 INP UT J ... — 

—-KB """HSEITtHIS IS THE SETTING S EQ U ENCE 

530 OUT P3,244 f^ 

540 (5) OUT P2,255 f^ 

550 " OUT P3,240 fi 

560 OUT P2,255 pf 

570 OUT PI, 240 fV 

580 '-D OUT P,255 pf 

590 3 OUT P3,244 P/ 

600 <S>^QH£_EU2A4 — CL — - 

— 5TIT - " j Tor x=i to 13 

620 j OUT P,TIME(X)^ 

630 a- j OUT P2,0 i/ 

640 I OUT P2,l ^ 

650 LJEXTJL- _ . - -- • «~ — - 

"660 <3ToUT PI, 248 ^ 

670 ' OUT P2,240 t-! . -— 

680 """"""* PRINT ""THE CLOCK IS SET" 

690 END 
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III. RTC.ASM 



**************************************** 

SciTronics S-100 Real-Time Clock * 

* 

Date - 801024 * 

Revision - 801202 * 

Programmer - A. I. Larky * 

* 

**************************************** 

COPYRIGHT 1980 - SCITRONICS, INC * 
**************************************** 



DISK SYSTEM ETP 
READ CONSOLE DEVICE 
PRINT LINE BUFFER 



ORG 100H 

BDOS EQU 5H 
CONIN EQU 1H 
PRINT EQU 9H 

• 

CR EQU 13 
LF EQU 10 

**************************************** 

TEST PROGRAM * 

THE CODE WHICH FOLLOWS IS AN EXAMPLE * 

OF THE INITIALIZATION AND DISPLAY OF * 

CLOCK INFORMATION. * 

IT SHOULD BE CUSTOMIZED FOR YOUR OWN * 

APPLICATION. THE CODE WHICH FOLLOWS * 

THE DIVIDING LINES IS COMMON TO ALL * 

CLOCK PROGRAMS. * 

**************************************** 

LXI SP, STACK 

CALL MSG 

DW ID 

CALL STOPS ;STOP THE CLOCK 

CALL SETUP ;SET UP DATE AND TIME 

CALL STARTS ; START THE CLOCK 

AGAIN: CALL DISPLA 

JMP AGAIN 

ID DB '{801202) - SCITRONICS REAL-TIME CLOCK' 
DB CR,LF,'$' 



Continued on next page. 
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************************************************ 
THE DISPLAY ROUTINES BUILD AN OUTPUT STRING * 
AT "LINE" WHICH CAN BE PRINTED TO SHOW DATE 
AND TIME. THE USER SHOULD INSERT HIS OWN 
PRINT ROUTINE IN PLACE OF THE BDOS CALL IN 
THE ROUTINE "MSG" 



********** ************************************** 



; EXAMINE FLAG 

;SAME OLD DATA 
; DON'T INTERRUPT WHILE 
,'WE'RE MAKING THE LINE IMAGE 
; CLEAR THE FLAG 



DISPLA: LXI 


H,OLD 


MOV 


A,M 


ANA 


A 


JZ 


DISPLA 


DI 




MVI 


M,0 


LXI 


B,6 


LXI 


D,LINE 


LXI 


H, CLOCK 


CALL 


DISP8 


INX 


H 


CALL 


BLANK 


MVI 


C,6 


CALL 


DISP8 



; OUTPUT BUFFER 

; DISPLAY DATE 

;SKIP DAY OF THE WEEK 



;SET UP TO DISPLAY TIME 

IF YOU HAVE A Z-80 CPU YOU MUST SELECT MODE 
INTERRUPTS BY PUTTING 

DB 0EDH 
AND 

DB 46H 
IN PLACE OF THE NOP'S BELOW. 
NOP 
NOP 



DISP8: 



EI 

CALL 

CALL 

DW 

RET 

CALL 

CALL 

MVI 

CALL 

JNZ 

RET 



CRLF 
MSG 

LINE 



DISP9 

DISP9 

A,':' 

DISP9A 

DISP8 



;ITS OK TO TURN INTERRUPT BACK ON 
; PRINT THE LINE IMAGE 

; PLANT 2ND DIGIT 
; PLANT COLON 
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DISP9: 


MOV 


A,M 






INX 


H 






AN I 


0FH 






AD I 


i0 i 






DCR 


C 




DISP9A: 


STAX 


D 






INX 


D 






RET 






BLANK: 


MVI 


A,' ' 






JMP 


DISP9A 




CRLF: 


MVI 


A, 13 






CALL 


DISP9A 






MVI 


A, 10 






CALL 


DISP9A 






MVI 


A, '$' 






JMP 


DISP9A 


_ 


• 
t 


MSG 




SETUP: 


CALL 






DW 


DOYOU 






CALL 


READ 


;GET ANSWER 




CPI 


ty. 






STA 


OLD 


/UNKNOWN TIME 




RNZ 




;NO 




CALL 


MSG 






DW 


ASKFOR 


; PROMPT FOR DATA 




CALL 


NUHI1L 


;GET DATE AND TIME 




JMP 
LXI 


"TsetterJ 


;SET THE CLOCK 


NUMIN: 


D, CLOCK 






MVI 


B,4 






CALL 


NUMCON 


;GET DATE INFO 




DCX 


D 


;ONLY ONE DIGIT TO DAY-OF-WEEK 




LDAX 


D 


;GET IT 




DCX 


D 


; BACKUP 




STAX 


D 


; PLANT IT 




INX 


D 






MVI 


B,2 






JMP 


NUMCON 


;GET TIME INFO (HR. & MIN. ONL 
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NUMCON: MVI 
NUMC2 : CALL 
CPI 
JZ 
CPI 
JZ 
CPI 
JZ 
SUI 
DAD 
DAD 
DAD 
DAD 
ADD 
MOV 
JMP 



L,0 

READ 
r i 

NUMC4 
i i 

NUMC4 
i i 

NUMC4 
i0i 

H 

H 

H 

H 

L 

L,A 

NUMC2 



; CLEAR THE NUMBER 
;GET ONE DIGIT 

; BLANK IS AN ENDING 

;SO IS COMMA 



;SO IS PERIOD 
;NOW WE ASSUME 
; BEGIN THE *16 



A DIGIT 



;INSERT NEW DIGIT 



NUMC4 : 



;GET MORE DIGITS 
THE CODE ABOVE ENSURES THAT WE TREAT ONE-DIGIT 
AND TWO-DIGIT ENTRIES ALIKE. 



MOV 

RRC 

RRC 

RRC 

RRC 

AN I 

STAX 

INX 

MVI 

ANA 

STAX 

INX 

DCR 

JNZ 

RET 



A,L 



;MOVE HIGH STUFF LOW 



0FH 

D 

D 

A,0FH 

L 

D 

D 

B 

NUMCON 



; PLANT A DIGIT 

;MORE PAIRS ? 
;YES 



THE USER SHOULD INSERT HIS OWN OUTPUT 
ROUTINE CALL IN PLACE OF THE CALL TO BDOS 

NOTE: $ IS THE END-OF-PRINT-LINE FLAG 
FOR BDOS, NOT A PRINTABLE CHARACTER. 
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MSG: 



XTHL 




MOV 


E,M 


INX 


H 


MOV 


D,M 


INX 


H 


XTHL 




MVI 


C, PRINT 


JMP 


BDOS 



THE USER SHOULD INSERT HIS OWN CHARACTER INPUT 
ROUTINE IN PLACE OP THE CALL TO BDOS. 



READ; 



PUSH 

PUSH 

PUSH 

MVI 

CALL 

POP 

POP 

POP 

RET 



B 

D 

H 

C, CON IN 

BDOS 

H 

D 

B 



ASKFOR: DB 

DB 

DB 

' DB 

DOYOU : DB 



LINE: 
OLD: 



DS 
DS 



1 ENTER DATE AND TIME',CR,LF 

' (YR, MON, DAY, DATE, HR,MIN.) • 

CR,LF,' IN THE FORM: 80,10,25,6,18,12.' 

CR,LF,' (SUNDAY = DAY 0) ' ,CR,LF, « $ • 

CR,LF,' SET NEW TIME ? - $' 



25 

1 



;OLD CHECKSUM KEPT HERE 



**************************************** 

END OF DISPLAY EXAMPLE * 

**************************************** 

THE ROUTINES WHICH FOLLOW SHOULD BE * 

PART OF ANY CLOCK SOFTWARE. WHILE * 

THE READING OF THE CLOCK IS DONE VIA * 

PRIORITY INTERRUPT, THE USER MAY READ* 

THE CLOCK AT ANY TIME BY CALLING THE * 

ROUTINE "INTR". IF THE CLOCK IS NOT * 

TO BE READ UNDER INTERRUPT, REMOVE * 

THE 'EI' INSTRUCTION FROM THE END OF * 

THE "INTR" AND "STARTS" ROUTINES. * 
**************************************** 
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PORT 



EQU 



24 



;BASE PORT ADDRESS 



THE VALUE FOR 'PORT' MUST MATCH THAT WHICH YOU HAVE 
SELECTED BY THE SWITCHES ON YOUR CARD. THE ONE SHOWN 
ABOVE CORRESPONDS TO SWITCH SETTINGS: 0110000 



PORT1 


EQU 


PORT+1 


PORT2 


EQU 


PORT+2 


PORT3 


EQU 


PORT+3 



THE VALUE FOR 'RSTART' MUST MATCH THAT WHICH YOU HAVE 
SELECTED BY THE SWITCHES ON YOUR CARD. THE ONE SHOWN 
BELOW CORRESPONDS TO SWITCH SETTINGS: ON OFF OFF 



RSTART EQU 



48 



; RESTART ADDRESS 



THIS IS THE INTERRUPT SERVICE ROUTINE WHICH IS 
INVOKED BY THE CLOCK, ONCE PER SECOND. 



INTR: 



LOOP1 : 



PUSH 


PSW 


;SAVE P 


PUSH 


B 




PUSH 


D 




PUSH 


H 




MVI 


A,0F0H 


;SEQUEN 


OUT 


PORT1 


;FOR RH 


MVI 


A,0FH 




OUT 


PORT 




MVI 


A,07FH 




INR 


A 




JNZ 


LOOP1 




MVI 


A,0FCH 




OUT 


P0RT3 




MVI 


A,0F4H 




OUT 


PORT1 




LXI 


B,NDATA 




LXI 


H,CLOCK+NDATA-l 



; SEQUENCE TO ENABLE THE CLOCK 
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L00P2 : MOV 
OUT 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
IN 
ANI 
RRC 
RRC 
RRC 
RRC 
MOV 
DCX 
INR 
DCR 
JNZ 

; NOW WIPE OUT 
LXI 
DAD 
MOV 
ANI 
MOV 
' DCX 
DCX 
DCX 
MOV 
ANI 
MOV 

INTR41 MVI 



A,B 
PORT 



;CODE DIGIT TO SELECT CLOCK ELEMENT 
;WE NEED A BIT OF DELAY HERE TOO 



PORT 
0F0H 



;READ CLOCK ELEMENT 

;DROP CODE DIGIT 

;MOVE DATA TO LOW NIBBLE 



OUT 
MVI 
OUT 
IN 



M,A ;SAVE DATA DIGIT 

H 

B 

C 

LOOP2 

THE LEAP YEAR AND 24HR MARKS 

D f HOUR-CLOCK+l 

D 

A,M 

3 

M,A 

H 

H 

H 

A,M 

3 

M,A 



;OFFSET TO HOUR TENS 



;BACK UP TO MONTH 



A,0F8H 

PORT1 1 

A,0FH 

PORT 

PORT2 



;WIPE OUT LE AP YEAR MARK 

; BEGIN SEQUEN^CT^TOTTETURI 

; CLOCK TO INTERRUPT MODE 

j CLEAR MINUTES INTERRUPT 
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;NOTE ** IF YOU WANT TO INTERRUPT EVERY MINUTE, CHANGE 

; THE TWO INSTRUCTIONS BELOW TO THE VALUES IN PARENTHESES. 



MVI 

OUT 

-HVT 



****** 



<< 



;SET DISPLAY FLAG 

; RESTORE ALL REGISTERS 



OUT 

MVI 

OUT 

STA 

POP 

POP 

POP 

POP 
IF YOU HAVE 
PUTTING 

DB 0EDH 
AND 

DB 46H 
IN PLACE OF THE NOP'S WHICH FOLLOW 

NOP 

NOP 



; (MVI A,0F9H) 

; DISABLE (ENABLE) MINUTES INTERRUPT 

; (MVI A,0FCH) ****** 

.; ENABLE (DISABLE) SECONDS INTERRUPT 



A,0F8H 
PORT3_ 
~A,"0FDH 
PORT1 
A,0FH 
_PJ3RT — 
OLD 
H 
D 
B 

PSW 
Z-80 CPU, SELECT INTERRUPT MODE BY 



EI 

RET 



; RE- ENABLE INTERRUPT MODE 



SETTER:: DI 
MVI 
OUT 
MVI 
OUT 
MVI 
OUT 
MVI 
OUT 
MVI 
OUT 
MVI 
OUT 
MVI 
OUT 
MVI 
OUT 



A,0F4H 

PORT3 A , 

A,0FFH 2Xg\^ 



;TURN OFF INTERRUPT 



PORT2 

A,0F0H 

PORT3 

A,0FFH 

PORT2 

A r 0F0H *f* 

PORT1 

A,0FFH 

PORT u ; 

A,0F4H 3»f^ ^ : 

PORT3 J\ 

A,0F4H iMH -I 

PORT1 J 



2»p y 



..A I/' 



A^ ' 



.jr^ 



tjtr 



>r 



\h 
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********************************************* A5t5k 
THE CLOCK IS PROGRAMMED BY OUTPUTTING THE * 
DESIRED DIGITS, ONE AT A TIME. EACH DIGIT * 
MOST BE IN THE UPPER HALF OF A BYTE WITH * 
A DIGIT IN THE LOWER BYTE TO IDENTIFY WHICH * 
CLOCK ELEMENT IS TO BE SET. 0=SECONDS, 1=TENS* 
OF SECONDS, 2=MINUTES, 3=TENS OF MINUTES, 4= * 
HOURS, 5=TENS OF HOURS, 6=DAY-OF-THE-WEEK, 7= * 
DATE, 8=TENS OF DATE, 9=MONTH, 10=TENS OF MON-* 
TH, 11=UNITS OF YEAR, 12=TENS OF YEAR. * 

* 

THE LOOP BELOW SHIFTS THE INFORMATION DIGITS * 

TO THE HIGH NIBBLE, AND ADDS THE CODE DIGITS. * 

* 

NOTE: THE SECONDS MUST BE ACCESSED, EVEN 

THOUGH THEY CAN'T BE SET, IN ORDER TO RESET 

THEM. A MARKER IS SET ON TENS OF HOURS 

FOR 24-HR. TIME. 

************************************************ 



* 
* 
* 
* 



LXI 


H, CLOCK 


;SET UP CONTROL DI 


MVI 


C,NDATA 




: MOV 


A,M 


;GET ONE DIGIT 


ADD 


A 


;MOVE TO HIGH END 


ADD 


A 


; *4 


' ADD 


A 


; *8 


ADD 


A 


; *16 


ADD 


C 


; INSERT CODE DIGIT 


DCR 


A 


/•CORRECT IT 


MOV 


M,A 




INX 


H 




DCR 


C 




JNZ 


START2 




LXI 


D, HOUR-CLOCK -NDATA :OI 


DAD 


D 




MOV 


A,M 




ORI 


128 


;SET MILITARY TIME 


MOV 


M,A 





; OFFSET TO HOUR 
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NOW THAT WE HAVE THE PROPER FORM OF DATA IN 
WE CAN DO THE ACTUAL CLOCK SETTING OPERATION. 



LOOP4 : 



LXI 
MVI 
MOV 
OUT 
MVI 
OUT 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
MVI 
OUT 
INX 
DCR 

^-MVT 
OUT 
MVI 

RET 



H, CLOCK 

B,NDATA 

A,M 

PORT 

A,0 

PORT2 



; INITIAL DATA AREA 
;SET UP CLOCK 



; CREATE A STROBE PULSE 
;WE NEED SOME DELAY 



A,l 

PORT2 

H 

B 
.— L00P4- 

A,0F8H 

PORTl fs& 

A,0F0H 
50R3?»— - — - 



END OF STROBE 



(bh-4 



Cfl.pnfc' 



STARTS 



DI 
PUSH 
PUSH 
PUSH 
PUSH 
SET UP THE 
LXI 
MVI 
INX 
MVI 
INX 
MVI 
JMP 



STOPS: 



DI 

MVI 

OUT 

OUT 

RET 



PSW ; DUMMY PUSHES TO ENABLE US 
B ;TO USE THE TAIL END OF 
D ;THE "INTR" ROUTINE TO 
H ; ENABLE INTERRUPTS 
INTERRUPT VECTOR 
H,RSTART 
M,JMP 
H 

M,INTR AND 0FFH 
H 

M,INTR SHR 8 
INTR4 ;NOW DO THE ENABLING 



A,0 

PORTl 

PORT3 




/yvtff 



uA> 



&M>c frs ^^ V>- ^ 
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CLOCK DATA AREA 



CLOCK : 



HOUR 



NDATA 



STACK; 



DB 


8CH,0BH 


;YEAR DIGITS 


(80) 


DB 


0AH,99H 


; MONTH 


(09) 


DB 


18H,87H 


; DATE 


(18) 


DB 


26H 


;DAY-OF-WEEK 


(2 = 


EQU 


$ 


; OFFSET TO HOURS 


DB 


05H,94H 


; HOURS 


(09) 


DB 


13H,2H 


; MINUTES 


(10) 


DB 


1,0 


; SECONDS 


(00) 


EQU 


$-CLOCK 






DS 


50 






DS 










TUES.) 



END 
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10 DEFINT A-Z 

20 DIM TIME(13),W$(7),MO$(12) 

40 P1=P0+1 ,CL0CK P0RT 0D0H Change to your P° rt address 

50 P2=P0+2 

60 P3=P0+3 

70 W$(0) ="Sunday " 

80 w$(l) ="Monday " 

90 w$(2) ="Tuesday " 

100 W$(3) ="Wednesday " 

110 W${4) ="Thursday - 

120 W$(5) ="Friday " 

130 W$(6) ="Saturday " 
140 ' 

150 MO$ (1) =« January " 

160 M0$ (2) = " February " 

170 M0$ (3) =" March " 

180 M0§ (4) = " April " 

190 M0$ (5) = " May " 

200 M0$ (6) = " June " 

210 M0$ (7) = " July - 

220 M0$ (8) =" August " 

230 M0$ (9) = " September ■ 

240 MO$(10) = " October " 

250 MO? (11) = " November " 

260 MO$(12) = " December " 
270 ' 

2 2 9 8 PRINT CHR${26) ' clears sc «en on TeleVideo 912/920 terminal 

111 SJ™ 2 ntQZ <T> f 0r time display ONLY" 

310 print "Enter <S> for time setting" 

320 PRINT "Enter <E> for EXIT" 

330 X1$=INKEY$ 

340 IF Xl$< CHR$(32) THEN 330 

350 IF X1$="T" THEN 1000 

360 IF Xl$="t" THEN 1000 

370 IF X1$="E" THEN END 

380 IF Xl$="e" THEN END 

390 IF X1$="S" THEN 420 

400 IF Xl$="s" THEN 420 

410 GOTO 330 
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420 

430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 



PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

INPUT 

PRINT 

PRINT 

PRINT 

INPUT 

' PREPARE 

TIME (1) 

TIME 

TIME 

TIME 

TIME 

TIME 

TIME 

TIME 

TIME 

TIME (10) 

TIME(ll) 

TIME(12) 

TIME (13) 

"DATA IS 



CHR$(26) 



"Enter DATE in 
" YY,MM,DD" 
YR,MO,DA 



the form: 



"Enter DAY-OF-THE-WEEK" 

" = Sunday" 

" 1 = Monday" 

" 2 = Tuesday" 

" 3 = Wednesday" 

" 4 = Thursday" 

" 5 = Friday" 

" 6 = Saturday" 



w 



"Enter TIME on 24HR clock in the form of 

" HH,MM" 

HR,MIN 

THE DATA FOR ENTRY 

=16*INT(YR/10)+12 

=16*(YR-10*INT(YR/10))+11 

=16*INT(MO/10)+10 

=16*(MO-10*INT(MO/10))+9 

=16*INT(DA/10)+8 

=16*(DA-10*INT(DA/10))+7 

=16*W+6 

=16*INT(HR/10) +5+128 

=16*(HR-10*INT(HR/10) ) +4 

=16*INT(MIN/10)+3 

=16*(MIN-10*INT(MIN/10))+2 

=1 

=0 

READY, ASK FOR 



(2) 
(3) 
(4) 
(5) 
(6) 
(7) 
(8) 
(9) 



•START SIGNAL FROM USER 

PRINT 

PRINT "Press any key to set and start clock with zero seconds" 

X$=INKEY$ 

IF Xl$< CHR$(32) THEN 810 

IF LEN(X?)=0 THEN 810 
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840 'THIS IS THE SETTING SEQUENCE 

850 OUT P3,244 

860 OUT P2,255 

870 OUT P3,240 

880 OUT P2,255 

890 OUT PI, 240 

900 OUT P0,255 

910 OUT P3,244 

920 OUT PI, 244 

930 FOR X=l TO 13 

940 OUT P0,TIME{X) 

950 OUT P2,0 

960 OUT P2,l 

970 NEXT X 

980 OUT PI, 248 

990 OUT P3,240 

1000 ' READ CLOCK 

1010 PRINT CHR${26) 

1020 ' 

1030 • THIS READS THE CLOCK DATA 

1040 * 

1050 OUT PI, 240 

1060 OUT P0, 15 

1070 OUT PI, 244 

1080 OUT P3,252 

1090 FOR X=l TO 13 

1100 OUT P0,13-X 

1110 TIME(X)=INP(P0) 

1120 NEXT X 

1130 » PUT CLOCK BACK INTO RUNNING MODE 

1140 OUT P3,240 

1150 OUT PI, 248 

1160 FOR X=l TO 13 

1170 TIME(X)=INT(TIME(X)/16) 

1180 NEXT X 

1190 

1200 

1210 TIME (3) = TIME (3) AND 3 

1220 TIME (8) = TIME (8) AND 3 

1230 « 



' THERE ARE SPECIAL MARKS ON HOURS AND MONTH 
' STRIP THEM OFF 
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1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 



Y$ 

MO 

IF 

D$ 

W 

H$ 

MI$ 

S$ 



= CHR$(TIME (l)+48)+CHR$(TIME (2) +48) 
= TIME(3)*10+TIME(4) 
TIME(5)>0 THEN D$=CHR$ (TIME (5) +48) +CHR$ (TIME (6) +48) .-GOTO 1280 
= CHR$(TIME (6)+48) 

TIME (7) 
= CHR$(TIME (8)+48)+CHR$(TIME (9) +48) 
CHR$(TIME(10)+48)+CHR$(TIME(ll)+48) 
CHR$(TIME(12)+48)+CHR$(TIME(13)+48) 



X$=INKEY$ 

IF Xl$< CHR$(32) THEN 1330 

IF LEN(X$)<>0 THEN 280 

IF S1$=S$ THEN 1050 ELSE S1$=S$ 



PRINT 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



CHR$(30) ; 'Cursor home 



GOTO 1050 



W$(W); 

H$;";";MI$;" 
MO$(MO);D$;" 
CHR$(30); 



command 



;S$; 
;"19";Y$ 
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V. READ. ASM 



Note 

Interrupts not used 



;PGM by Harry Kaemmerer 810220 



PROM 


EQO 


xxxxH 


CONOOT 


EQO 


xxxxH 


PORT 


EQO 


xxH 


PORT1 


EQO 


PORT+1 


PORT2 


EQO 


PORT+2 


P0RT3 


EQO 


PORT+3 


SECU 


EQO 





SECT 


EQO 


SECU+1 


MINU 


EQO 


SECT+1 


MINT 


EQO 


MINU+1 


HRSU 


EQU 


MINT+1 


HRST 


EQO 


HRSU+1 


DAYW 


EQO 


HRST+1 


DAYU 


EQU 


DAYW+1 


DAYT 


EQO 


DAYU+1 


MONU 


EQO 


DAYT+1 


MONT 


EQO 


MONU+1 


YEAU 


EQU 


MONT+1 


YEAT 


EQU 


YEAU+1 



ASCII 



TIME: 



EQU 



ORG 



30H 



PROM 



CALL 


TSTART 


CALL 


DAY0 


CALL 


TIMED 



ADD START OF PROM ADDRESS 
ADD YOOR CONOOT CALL ADDRESS 
ADD BASE PORT ADDRESS FOR CLOCK 



SECONDS 


UNITS 


SECONDS 


TENS 


MINUTES 


UNITS 


MINUTES 


TENS 


HR'S 


UNITS 


HR'S 


TENS 


DAY OF * 


I-HE WEEK 


DAY 


UNITS 


DAY 


TENS 


MONTH 


UNITS 


MONTH 


TENS 


YEAR 


UNITS 


YEAR 


TENS 



OFFSET TO MAKE CHAR. ASCII 



DO CLOCK INIT SUB 
DISPLAY TIME 
RESET CLOCK BOARD 
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SUB ROUTINES START HERE 


DAY0 


LXI 


H,STR3 




LXI 


B,0H 




MVI 


A,DAYW 




CALL 


GETDIG1 




MOV 


C,A 




DAD 


B 




MOV 


C,M 




LXI 


H,STR4 




DAD 


B 




CALL 


MESAG 


HRS1 


MVI 


A,HRST 




CALL 


GETDIG1 




AN I 


3 




CALL 


SENDCH 


HRS2 


MVI 


A,HRSU 




CALL 


GETDIG ; 


HRS3 


MVI 


A,':' J 




CALL 


SENDIT ; 


MINI 


MVI 


A , MINT J 




CALL 


GETDIG ; 


MIN2 


MVI 


A, MIND j 




CALL 


GETDIG 


MIN3 


MVI 


A,':' J 




CALL 


SENDIT 


SEC1 


MVI 


A, SECT '• 




CALL 


GETDIG 


SEC2 


MVI 


A,SECU '• 




CALL 


GETDIG 



POINTS TO LOOKUP TABLE FOR DAY 

CLEAR B&C REGISTERS 

DAY READ INSTRUCTION 

GET IT 

MOVE DAY OF WEEK POINTER IN C. 

ADD B&C TO H&L REGISTERS 

GET OFFSET ADDRESS 

GET DAY NAME 

POINT TO NAME 

SEND IT TO TERMINAL 

SELECT HR»S TENS DIGIT 
GET DIGIT 

ELIMINATE EXTRA BIT 
SEND IT TO TERMINAL 

SELECT HR'S UNITS DIGIT 
SEND IT TO TERMINAL 

LOAD ":" SEPERATOR 
SEND IT TO TERMINAL 

SELECT MINUTES TENS DIGIT 
SEND IT TO TERMINAL 

SELECT MINUTES UNITS DIGIT 
SEND IT TO TERMINAL 

LOAD ":" SEPERATOR 
SEND IT TO TERMINAL 

SELECT SECONDS TENS DIGIT 
SEND IT TO TERMINAL 

SELECT SECONDS UNITS DIGIT 
SEND IT TO TERMINAL 
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M0N1 


MVI 


A, MONT 




CALL 


GETDIG1 




AN I 


3 




LXI 


H , STR5 




CPI 


1 




cz 


LABI 


M0N2 


MVI 


A,MONU 




CALL 


GETDIG1 




DCR 


A 




LXI 


B,0 




MOV 


C,A 




DAD 


B 




MOV 


C,M 




LXI 


H,STR6 




DAD 


B 




CALL 


MESAG 


DAY1 


MVI 


A,DAYT 




CALL 


GETDIG1 




CPI 







JZ 


DAY2 




PUSH 


PSW 




AD I 


ASCII 




MOV 


C,A- 




CALL 


CONOUT 




. POP 


PSW 


DAY2 


MVI 


A,DAYU 




CALL 


GETDIG 


YEA0 


LXI 


H,STR7 




CALL 


MESAG • 


YEA1 


MVI 


A,YEAT 




CALL 


GETDIG 


YEA2 


MVI 


A,YEAU 




CALL 


GETDIG 




RET 





SELECT MONTH TENS DIGIT 

GET DIGIT 

ELIMINATE EXTRA BIT 

POINT TO OFFSET LOOKUP TABLE 

SEE IF IT IS A MONTH AFTER SEPT. 

IF IT IS A ONE THEN CALL 

SELECT MONTH UNITS DIGIT. 

DECR. MONTH VALUE BY ONE JAN.=0 THEN 

CLEAR B&C REGISTERS 

PUT CLOCK DIGIT IN C REGISTER 

ADD B&C TO H&L REGISTERS 

PUT OFFSET NUMBER IN C REGISTER 

LOAD MONTH NAME POINTER 

ADD OFFSET TO H&L REGISTERS 

SEND MESSAGE 

SELECT DAY TENS DIGIT 

TEST FOR ZERO 

JUMP TO DAY IF ZERO 

SAVE RESULT ON STACK 

MAKE IT ASCII 

PUT IN C REGISTER 

SEND IT 

RESTORE A REGISTER 

SELECT DAY UNITS DIGIT 
SEND IT TO TERMINAL 

LOAD FIRST TWO DIGITS OF YEAR 
SEND IT TO TERMINAL 

SELECT YEAR TENS DIGIT 
SEND IT TO TERMINAL 

SELECT YEAR UNITS DIGIT 
SEND IT TO TERMINAL 
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TSTART 


MVI 


A,0F0H^ 




OUT 


PORT1 




MVI 


A,0FH -" 




OUT 


PORT 




MVI 


A,0F0H 




CALL 


DELAY 




MVI 


A,0FCH y 




OUT 


PORT3 




MVI 


A,0F4H ^ 




OUT 


PORT1 




RET 




TIMED 


MVI 


A,0F8H • 




OUT 


PORT1 


MY I ■ 


~A,0FH ^ 




OUI.____ 


.EQRT 




' MVI 


A,0F8H y 




OUT 


PORT3 




MVI 


A,0FCH ^ 




OUT 


PORT1 




MVI 


A/0FH 7 




OUT 


PORT 




RET 




MESAG 


MOV 


A,M 




CPI 







JZ 


MSS1 




CALL 


CONOUT 




INX 


H 




JMP 


MESAG 


MSS1 


RET 




GETDIG 


CALL 


GETDIG1 


SENDCH 


PUSH 


PSW 




AD I 


ASCII 




MOV 


C,A 




CALL 


CONOUT 




POP 


PSW 




RET 





SEQUENCE TO ENABLE THE CLOCK 



LOAD DELAY CONST. 
DO SOME DELAY 



RETURN CLOCK .TO RUN MODE 



GET CHARACTER FROM MEMORY 

TEST FOR ZERO 

IF ZERO EXIT 

SEND CHARACTER 

MOVE POINTER TO NEXT CHARACTER 

DO IT AGAIN UNTILL DONE 

RETURN 

READ CLOCK 

SAVE FLAGS AND ACC. 

MAKE IT ASCII 

PUT IN ACC 

SEND IT TO TERMINAL 

RESTORE ACC. AND FLAGS 

RETURN TO CALLER 
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SENDIT 


PUSH 


PSW 




MOV 


C,A 




CALL 


CONOUT 




POP 


PSW 




RET 




GETDIG1 


OUT 


PORT 




MVI 


A,0FAH 




CALL 


DELAY 




IN 


PORT 




AN I 


0F0H 




RRC 






RRC 






RRC 






RRC 






RET 




LABI 


LXI 


D,0 




MVI 


E,0AH 




DAD 


D 




RET 




DELAY: 


INR 


A 




JNZ 


DELAY 




RET 




STR3 


DB 


00H,08H,10H,19 




DB 


24H,2EH,36H 


STR4 


DB 


'Sunday ',0 




DB 


'Monday ',0 




DB 


'Tuesday ',0 




DB 


'Wednesday ',0 




DB 


'Thursday ' ,0 




DB 


'Friday ',0 




DB 


'Saturday *,0 



SAVE FLAGS AND ACC. 
PUT IN ACC 
SEND IT TO TERMINAL 
RESTORE ACC. AND FLAGS 
RETURN TO CALLER 

CODE DIGIT TO SELECT CLOCK ELEMENT 

DELAY FACTOR 

DELAY SOME TIME HERE 

READ CLOCK ELEMENT 

DROP CODE PART OF DIGIT 

MOVE DATA TO LOW NIBBLE 



NUMBER RETURNED IN ACC. 



CLEAR D&E REGISTERS 

IF THE RESULT WAS OCTOBER OR LATER 

ADD X10 OFFSET 

LOAD POINTER OFFSET AND RETURN 



NOT DONE DELAY SOME MORE 



OFFSET LOOKUP TABLE 
FOR DAY OF THE WEEK 
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STR5 



STR6 



STR7 



DB 


00H,0AH,15H,1DH 


; OFFSET LOOKUP TABLE 


DB 


25H,2BH,32H,39H 


;FOR MONTH NAME 


DB 


42H,4FH,59H,64H 




DB 


1 January ' ,0 




DB 


1 February ',0 




DB 


1 March ' ,0 




DB 


1 April ' ,0 




DB 


' May »,0 




DB 


' June ',0 , 




DB 


' July ',0 




DB 


1 August ',0 ; 




DB 


' September ' ,0 ; 




DB 


1 October * ,0 ; 




DB 


' November ',0 j 




DB 


' December ' ,0 ; 




DB 


19'r0 ; 


YEAR LEADIN MESS. 


END PROM 
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VI. NORTHSTAR SOFTWARE 
10 REM*********RTCSET**************************** 
20 REM****NORTH STAR BASIC*********************** 
30 REM PROGRAM TO SET SCITRONICS CLOCK - 801003* 
40 REM **COPYRIGHT 1980 - SCITRONICS, INC******* 
50 REM****CONV BY RICE COMMUNICATIONS INC******* 
60 ""PROGRAM TO SET THE SCITRONICS CLOCK"\DIMT(13) 
70 1" SCITRONICS, INC., BETHLEHEM, PA 18015"\! 
80 ["ENTER CLOCK BASE PORT ADDRESS" 
90 !"IN DECIMAL INTER FORM - ,4 ,8 , 16 ,20 , ETC" 
100 ! "MAXIMUM VALUE = 252"\INPUT P 
110 REM CHECK FOR PROPER VALUE AND RANGE 

120 IFP>=256THEN80\M=INT(P/4)\IF(4*M-P)O0THEN80\Pl=P+l\P2=P+2\P3=P+3 
130 REM GET THE TIME DATA 

140 !\! "ENTER DATE IN THE FORM: YR,MO DA"\!"ONLY LAST TWO DIGITS FOR YR! " 
150 INPUT Y,M,D\I\! "ENTER DAY-OF-THE-WEEK - = SUNDAY "\INPUTW\1 
160 ! "ENTER TIME ON 24HR CLOCK IN THE"\l"FORM: HR,MIN" 
170 I "CLOCK ALWAYS STARTS ON 00 SECONDS, SO" 

180 !"BE SURE TO ENTER THE NEXT MINUTE. "\INPUTH, Ml \REM PREPARE THE DATE 
190 T(1)=16*INT(Y/10) +12\T( 2) =16 * ( Y-10*INT( Y/10) ) +11\T(3) =16 *INT(M/10) +10 
200 T(4)=16*(M-10*INT(M/10))+9\T(5)=16*INT(D/10)+8\T(6)=16*(D-10*INT(D/10) ) +7 
210 T(7)=16*W+6\T(8)=16*INT(H/10)+5+128\T(9)=16*(H-10*INT(H/10))+4 
220 T(10) =16*INT(M1/10) +3\T(11) =16 * (Ml-10*INT(M1/10) ) +2\T(12) =1\T(13) =0 
230 REM DATA IS READY, ASK FOR START SIGNAL FROM USER 
240 i\! "ENTER 1 AND CARRIAGE RETURN TO SET CLOCK" 

250 !"PUSH CR ON THE ZERO SECOND "\ INPUT J\REM THIS IS TO SET SEQUENCE 
260 OUTP3,244\OUTP2,255\OUTP3,240\OUTP2,255\OUTP1,240\OUTP,255\OUTP3,244 
270 OUTPl,244\FORX=lTO13\OUTP,T(X)\OUTP2,0\OUTP2,l\NEXTX\OUTPl,248\OUTP3,240 
280 i"THE CLOCK IS SET"\CHAIN"RTCREAD" 



10 REM **********RTCREAD************************** 

20 REM THIS PROGRAM IS IN NORTH STAR BASIC******** 

30 REM ****CONV BY RICE COMMUNICATIONS INC******** 

40 REM ** READ SCITRONICS REAL-TIME CLOCK******** 

50 REM *COPYRIGHT 1980 - SCITRONICS, INC.******** 

60 REM ******PRESS (ESC) TO STOP READ OUT******** 

70 DIM T(13) ,W$(21)\W$="SUNMONTUEWEDTHRFRISAT" 

80 ["PROGRAM TO DISPLAY CLOCK DATA" 

90 ["SCITRONICS, INC., BETHLEHEM, PA"\i 

100 REM THIS IS THE NON INTERRUPT-DRIVEN VERSION 

110 [ "ENTER CLOCK BASE PORT ADDRESS" 

120 ["IN DECIMAL INTER FORM - ,4 ,8 ,12,16 ,20 ,ETC" 

130 ["MAXIMUM VALUE = 252"\INPUT P 

140 REM CHECK FOR PROPER VALUE AND RANGE 

150 IFP>=256THEN80\M=INT(P/4)\IF(4*M-P)O0THEN80\Pl=P+l\P2=P+2\P3=P+3 

160 IFINP(2)=155THEN80\GOSUB200\REM DISPLAY LOOP STARTS HERE 

170 Y=T(1) *10+T(2)\M0=T(3) *10+T(4) \D=T(5) *10+T(6) \W=T(7) +1\H=T(8) *10+T(9) 

180 M1=T(10)*10+T(11)\S=T(12)*10+T(13) 

190 IY,":",M0,": n ,D," n ,\!W$(W*3-2,W*3) ," . " ,\i H, " : " ,M1 , " : " , S," "\l\GOTO160 

200 REM**************************** 

210 REM THIS READS THE CLOCK DATE * 

220 REM**************************** 

230 OUT Pl,240\OUTP,15\OUTP3,252\OUTPl,244\FORX=lTO13\OUTP,13-X 

240 T(X)=INP(P)\NEXT X 

250 REM***************************************** 

260 REM PUT CLOCK BACK INTO RUNNING MODE******** 

27 REM***************************************** 

280 OUT Pl,248\OUTP,15\OUTP3,248\OUTPl,252\OUTP,15\FORX=lT013 

290 T(X)=INT(T(X)/16)\NEXT X\T(3) =T(3)-v*iXCS> K^AV?C£^TC5^- ^TttL^I'^ 
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SCHEMATIC 

& 
PARTS LIST 



^ 4 a) 

TJ 

g 



4+5 ■• 



>A — 



74-1 



ii 

r 



- - M 
in, Vc cm ~ dsw-2 ! 



1*i 







CO 
U3 



7J 



R4 



6i). R3 (qT) 



R5 



R12 

CZZ1 



RIO 

r— 3 



CEED 



C5 



C 



uo 



Rll[J R9 j 



C7 




VOLT 

REG 



o 



C4 



U3 




D ® 



C8 



U2 



CZl 

XTAL 



U5 



CI 

ni iai in i in. I 

C2 



R2 



-«ji 



R14 



. .EZZZ3R8 

MSEC J I EZTZ3R7 

I I I iKo 



SEC HR 



SW2 
INT 




RTC-100 PARTS LAYOUT : Refer to Parts List for parts description 



PARTS LIST - 



PRODUCT: RTC-100 



KAGE 



OF 



Layout U 


, SciTronics P/N 


Description 




B 1 


17031 


3 V Lithium Battery 




C 1 


12024 


.lmF @ 12V Ceramic Disc Capacitor 




C 2 


12024 


.lmF @ 12V Ceramic Disc Capacitor 




C 3 


12024 


.lmF @ 12V Ceramic Disc Capacitor 




C 4 


12024 


.lmF @ 12V Ceramic Disc Capacitor 




C 5 


12024 


•lmF @ 12V Ceramic Disc Capacitor 




C 6 


12014 


4.7mF § 10V Solid Tantallum Capacitor 




C 7 


12031 


15pF Ceramic Disc Capacitor 




C 8 


12031 


15pF Ceramic Disc Capacitor 




C 9 


12032 


5-30pF Variable Ceramic Capacitor 




CR 1 


13011 


IN6263 Diode 




• D 1 ■ 


20079 


8 Position DIP Switch 




D 2 


20084 


4 Position DIP Switch 




• OS 


17012 


14 Pin DIP Socket 




OS 1 


17012 


14 Pin DIP Socket 




DS 2 


17032 


18 Pin DIP Socket 




DS 3 


17012 ! 


14 Pin DIP Socket j 




DS 4 


17012 


14 Pin DIP Socket 




DS 5 


17034 


40 Pin DIP Socket 




DS 6 


17012 


14 Pin DIP Socket 




DS 7 


17012 


14 Pin DIP Socket 


I 


DS 8 


17012 


14 Pin DTP Socket 




DS 9 


17033 


'0 Pin nTP SnrkPt 




DS 10 


17033 


>n Pin nrp wt^t 




ns 11 


17033 


20 Pin DTP Socket 
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PRODUCT: 



RTC-lOO 



Page 2 of 3j 



Layout h , 


SciTronics P/N 


Description 




HS 1 


17030 


Heat Sink for Voltage Regulator 




J 1 


22010 


Jumper (seconds) 




Q 1 


18001 


2N4124 Transistor 




Q 2 


1 ■ 1 

18003 


2N4126 Transistor 




Q 3 


18006 


MPSA13 Transistor 




Q 4 


18006 


MPSA13 Transistor 




VR 1 


14041 


+5 V Voltage Regulator 




R 1 


11013 


IK ^w Carbon Film Resistor 




R 2 


11013 


IK %w Carbon Film Resistor 




R 3 


1 

11022 


51K %w Carbon Film Resistor 




R 4 


11001 


10K %w Carbon Film Resistor 


• 


R 5 


11001 


10 K ^w Carbon Film Resistor 


■^ 


R 6 


11028 


3.3K %w Carbon Film Resistor 




R 7 


11028 


3.3 K %w Carbon Film Resistor 




R 8 


11028 


3.3K %w Carbon Film Resistor 




R 9 


11012 


20K %w Carbon Film Resistor 




R 10 


11012 


20K a$w Carbon Film Resistor 




R 11 


11012 


20K %w Carbon Film Resistor 




1 ii 

R 12 


11012 


20K %w Carbon Film Resistor 




R 13 


11028 


3.3K %w Carbon Film Resistor 




R 14 


11028 


3.3K %w Carbon Film Resistor 


' 


SR 1 


11033 


3.3K SIP Resistor Network 




U 


14047 


7474 Dual D FliD FIod 


1 


U 1 


14046 


7408 Ou ad 2- in AND Gat.P 




U 2 


1 14045 


MSMR83? OKT Hack Chin 
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PRODUCT: RTC-ioo 



PAGE 



OF _3_ 



1 AYOL1T U , 


SciTronics P/M 


Description . 




U 3 


14046 


7408 Quad 2- in AND Gate 




U 4 


14030 


74LS04 Hex Inverter 




(J 5 


14048 


6821 Peripheral Interface Adaptor 




U 6 


14030 


74LS04 Hex Inverter 




U 7 


14049 


74LS136 Quad Exclusive OR Gate (O.C.) 




U 8 


14049 


74LS136 Quad Exclusive OR Gate (O.C.) 




U 9 


14050 


74LS241 Octal Bus/Line Driver 




U 10 


14050 


74LS241 Octal Bus/Line Driver 




U 11 


14050 


74LS241 Octal Bus/Line Driver 




hW 1 


21001 


6-32 h" Screw 




HW 2 


21030 


6-32 Hex Nut 




PC 1- 


17012 


S-100 Real Time Clock PC Board 


.. 


X 1 


17035 


Crystal (32.768KHz) 


I 
















I 








! 
















k 
























1 








■i 
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WARRANTY 

All SciTronics Inc. computer boards are assembled and fully tested 
at the factory before shipment. Your Real Time Clock is warranted 
against defects in material and workmanship for a period of six (6) 
months from date of delivery. SciTronics will repair or replace pro- 
ducts found to be defective during the warranty period, provided they 
are returned to SciTronics Inc. No other warranty is expressed or im- 
plied. We are not liable for improper use or inconsequential damages. 
We reserve the right to refuse to repair any product that in our opin- 
ion has been subjected to abnormal electrical or mechanical abuse. Pro- 
ducts out of warranty are subject to a minimum service fee. Contact 
SciTronics before sending your unit in for repair. Please fill out the 
enclosed self-addressed warranty card to validate your warranty. 

For your records: 

Date Purchased 

Serial # 



(located on board) 
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